demo <- tribble(
~Characteristic, ~`ESA-naïve`, ~`ESA-R/R/I`,
"Age, median (IQR), years", "76.0 (71.0–80.0)", "76.0 (70.5–81.5)",
"Female, n (%)", "17 (31.5)", "17 (32.7)",
"Region — Europe, n (%)", "39 (72.2)", "47 (90.4)",
"Region — North America, n (%)", "15 (27.8)", "5 (9.6)",
"Time since MDS dx, median (IQR), mo", "2.2 (0.3–9.2)", "25.2 (10.0–65.5)",
"Transfusion burden, median, U/8wk", "2.0 (1.0–4.0)", "4.0 (2.0–6.0)",
" TB <4 U/8wk, n (%)", "38 (70.4)", "25 (48.1)",
" TB 4 to <6 U/8wk, n (%)", "12 (22.2)", "8 (15.4)",
" TB ≥6 U/8wk, n (%)", "4 (7.4)", "19 (36.5)",
"Hb, median (IQR), g/dL", "8.1 (7.2–8.5)", "7.5 (7.0–7.8)",
" sEPO ≤200 IU/L, n (%)", "42 (77.8)", "23 (44.2)",
" sEPO >200 IU/L, n (%)", "11 (20.4)", "29 (55.8)",
" sEPO >500 IU/L, n (%)", "3 (5.6)", "17 (32.7)",
"Serum ferritin, median (IQR), μg/L", "601.5 (270.0–1130.5)", "963.2 (469.4–1624.5)",
"IPSS-R — Very low, n (%)", "2 (3.7)", "5 (9.6)",
"IPSS-R — Low, n (%)", "37 (68.5)", "36 (69.2)",
"IPSS-R — Intermediate, n (%)", "14 (25.9)", "11 (21.2)",
"RS− status, n (%)", "23 (42.6)", "19 (36.5)",
"RS+ status, n (%)", "31 (57.4)", "33 (63.5)",
"SF3B1 mutated, n (%)", "28 (51.9)", "30 (57.7)"
)
demo %>%
gt(rowname_col = "Characteristic") %>%
tab_header(
title = "MAXILUS: Baseline Demographics & Disease Characteristics",
subtitle = "All-treated population; data cutoff October 1, 2025"
) %>%
cols_label(
`ESA-naïve` = md("**ESA-naïve**<br>(n = 54)"),
`ESA-R/R/I` = md("**ESA-R/R/I**<br>(n = 52)")
) %>%
tab_style(
style = list(cell_fill(color = pal$teal_lt), cell_text(weight = "bold")),
locations = cells_column_labels()
) %>%
tab_footnote(
footnote = "ESA-R/R/I cohort is a more heavily pre-treated, higher-transfusion-burden, higher-sEPO population (longer time since diagnosis, more TB ≥6 U/8wk, more sEPO >200 IU/L).",
locations = cells_column_labels(columns = `ESA-R/R/I`)
) %>%
tab_source_note(md("Della Porta MG, et al. EHA 2026 [Abstract S173]."))